home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / dos / dostimes.c next >
Encoding:
C/C++ Source or Header  |  1992-09-15  |  293 b   |  20 lines
  1. #include <sys/times.h>
  2. #include <sys/resource.h>
  3.  
  4. #ifdef __ZTC__
  5. #define HZ 100
  6. #endif
  7.  
  8. times(x)
  9. struct tms *x;
  10. { int hz;
  11. struct rusage ru;
  12. getrusage(RUSAGE_SELF,&ru);
  13. hz =  ru.ru_utime.tv_sec * HZ +
  14.        (ru.ru_utime.tv_usec *HZ)/1000000;
  15. x->tms_utime = hz;
  16. x->tms_stime = hz;
  17. return 0;
  18. }
  19.  
  20.